program questao1;
var
a, b, c, x1, x2, x3, y: integer;
begin

readln (a, b, c);
if (a<=3)
then
x1 := (a*5);
if (a>3)
then
x1 := (a*3);
if (b<=4)
then
x2 := (b*15);
if (b>4)
then
x2 := (b*12);
if (c<=5)
then
x3 := (c*10);
if (c>5)
then
x3 := (c*8);

y := (x1 + x2 + x3);
writeln ('y = ',y:4);
end.
